Sub 데이터_가져오기()
'
' 데이터_가져오기 매크로
'

'
    ChDir "C:\예제\Part 02\Chapter 05"
    Workbooks.Open Filename:="C:\예제\Part 02\Chapter 05\급여대장.xlsx"
    Range("I6:I10").Select
    Selection.Copy
    Windows("급여 분석.xlsm").Activate
    Range("C6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("급여대장.xlsx").Activate
    ActiveWindow.Close

End Sub
